home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / GCSData / POPQUI_O.Dxr / 00038_KeyChecks & End Scripts.ls < prev    next >
Encoding:
Text File  |  1996-09-02  |  1017 b   |  48 lines
  1. on KeyCheckEndOk
  2.   if the key = RETURN then
  3.     EndOk()
  4.   end if
  5. end
  6.  
  7. on KeyCheckHintOk
  8.   if the key = RETURN then
  9.     HintOk()
  10.   end if
  11. end
  12.  
  13. on EndOk
  14.   put "   " into field 2
  15.   put "   " into field 3
  16.   put "   " into field 4
  17.   put "   " into field 5
  18.   put "   " into field 7
  19.   EndPopQuiz()
  20. end
  21.  
  22. on HintOk
  23.   global PopQuizNum, WhereToGo, OldLocation, MovieIdentifier, PopFrom, FrameFrom, PopQuiz, QuizUp, QuizWaiting, PopQuizTime, TimeToQuiz, Hint
  24.   set Hint to 1
  25.   set WhereToGo to the pathName & line PopQuizNum of field "HintLocations"
  26.   set OldLocation to MovieIdentifier
  27.   set PopQuizTime to the ticks
  28.   set QuizUp to 0
  29.   set QuizWaiting to 0
  30.   if Hint = 1 then
  31.     set TimeToQuiz to 120
  32.   end if
  33.   if Hint = 0 then
  34.     set TimeToQuiz to random(180) + 240
  35.   end if
  36.   ScoreDisplay()
  37.   if the soundEnabled = 1 then
  38.     set the soundEnabled to 0
  39.     set the soundEnabled to 1
  40.   end if
  41.   set the keyDownScript to EMPTY
  42.   set the mouseUpScript to EMPTY
  43.   cursor(4)
  44.   go(1, WhereToGo)
  45.   cursor(4)
  46.   SoundControl()
  47. end
  48.